home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 2
/
Atari Mega Archive CD - Volume 2.iso
/
8bit
/
cislib_a
/
lodrun.bin
< prev
next >
Wrap
Text File
|
1995-04-22
|
3KB
|
1 lines
10 REM ** LODE RUNNER SCREEN TRANSFER¢15 REM BY PAUL FIELDS, CIS 72465,1260¢20 REM ** JUNE 1984 ** VERSION 1.0 **¢25 REM SETUP STRING VARIABLES¢30 DIM L1$(70),L2$(58),L3$(40),L4$(58),NAME1$(15),NAME2$(15),ID$(12),F$(15)¢35 L1$(1)="-":L1$(56)="-":L1$(2)=L1$¢40 L2$(1,2)="I ":L2$(57,58)="I ":L2$(3)=L2$¢45 L3$=" 1 2"¢50 L4$=" 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8"¢55 REM SEND PROGRAM TO MENU¢60 GOTO 320¢65 REM PRINT A SCREEN WORKSHEET¢70 REM USE AN 80-COL PRINTER¢75 CLOSE #7:OPEN #7,8,0,"P:"¢80 ? #7;"LODE RUNNER SCREEN WORKSHEET * NR___ DATE_______":? #7:? #7;L3$:? #7;L4$¢85 FOR X=1 TO 16:? #7;L1$:? #7;L2$;" ROW";X:? #7;L2$:NEXT X:? #7;L1$¢90 RUN ¢95 REM ENTER SCREEN VALUES¢100 POKE 752,0:? "}":POSITION 2,1:? "áצבפדדמáשIJכרדáדמקפךá":? ¢105 ? "áדמקדפáךנרפáהחפצקáמIJלדá¿נפáזIJמגכד⌐á":INPUT NAME1$:? ¢110 ? "áדמקדפáךנרפáכIJצקáמIJלדá":INPUT NAME2$:? ¢115 ? "áדמקדפáרצדפáחגáמרלאדפá":INPUT ID$:? ¢120 ? "áחמסרקáגדצקחמIJקחנמáגפחשדáúá¿õ¼Ø¼דקב⌐":INPUT X:? ¢125 F$="D":F$(2)=STR$(X):F$(3)=":":F$(4)="LR":F$(6)=NAME1$:F$(7)=NAME2$(1,1)¢130 ? "áדמקדפáIJáצבפדדמáמרלאדפá":INPUT X:? :F$(8)=STR$(X):F$(10)=".BIN":? "}"¢135 CLOSE #2:CLOSE #4:OPEN #2,8,0,F$¢140 ? #2;NAME1$;" ";NAME2$;" * SCREEN # ";X;CHR$(155);"USER ID # ";ID$:? "}"¢145 ? "áספדצצáפדקרפמáהנפáםדפנדצá¿צסIJבדצ⌐á":OPEN #4,4,0,"K"¢150 TRAP 205:FOR X=1 TO 16:? "ENTER VALUES FOR ROW # ";X:F=1:L1$="":F$=""¢155 FOR Y=1 TO 28:GET #4,Z¢160 IF Z=126 THEN F=F-2:? " ";:L1$(F)=" ":F=F+2:GOTO 155¢165 IF Z=155 THEN F$="*":GOTO 180¢170 Z=Z-48:IF Z<1 OR Z>9 THEN 155¢175 F$=STR$(Z)¢180 ? F$;" ";:L1$(F)=F$:L1$(F+1)="-":F=F+2:NEXT Y:L1$(57)=" ROW ":L1$(63)=STR$(X):? ¢185 ? #2;L1$:NEXT X:CLOSE #2:POKE 752,1:? :? ¢190 ? " áספדצצáºךºáקנáפדקרפמáקנáגחציáלדמרá"¢195 GET #4,Z:IF Z<>89 THEN 195¢200 CLOSE #4:RUN ¢210 REM PRINT A SCREEN FILE¢215 ? "}":POSITION 2,2:? "áחמסרקáקזדáחמחקחIJכצáIJמגáקזדáצבפדדמááá":? "áמרלאדפáנהáקזדáהחכדáךנרáתIJמקáקנáספחמק":? ¢220 INPUT L1$:? :F$=""¢225 ? "áדמקדפáצנרפבדáגפחשדáúá¿õ¼Ø¼áדקב⌐á":INPUT X¢230 F$="D":F$(2)=STR$(X):F$(3)=":LR":F$(6)=L1$:F$(10)=".BIN":L1$=""¢235 CLOSE #7:OPEN #7,8,0,"P:"¢240 ? #7;"LODE RUNNER SCREEN TRANSFER":? #7:? #7;"* = SPACE (ZERO)":? #7¢245 ? #7;L3$:? #7;L4$¢250 CLOSE #2:OPEN #2,4,0,F$¢255 TRAP 265:INPUT #2,L1$:? #7;L1$:? #7¢260 GOTO 255¢265 CLOSE #7:RUN ¢270 REM READ DOCUMENTATION¢275 TRAP 290:CLOSE #2:OPEN #2,4,0,"D:LODRUN.DOC"¢280 TRAP 285:FOR F=1 TO 7:READ FF:? CHR$(125):? "":FOR X=1 TO FF:INPUT #2;L1$:POSITION 2,X:? L1$:NEXT X¢281 DATA 16,21,15,14,16,21,21,15¢285 POSITION 7,22:? "áספדצצáצקIJפקáקנáבנמקחמרדá"¢290 IF PEEK(53279)<>6 THEN 290¢295 NEXT F:CLOSE #2:GOTO 310¢300 ? CHR$(125):POSITION 3,10:? "²áגנברלדמקIJקחנמáהחכדáמנקáנמáגחציíá":FOR X=1 TO 500:NEXT X¢310 CLOSE #2:RUN ¢315 REM FUNCTION MENU¢320 GRAPHICS 0:POKE 710,160:POKE 709,10:POKE 712,54:POKE 82,2¢325 POKE 752,1:? CHR$(125):POSITION 4,4:? "áכנגדáפרממדפá¡áצבפדדמáקפIJמצהדפá":POSITION 12,7:? "MAKE A SELECTION"¢330 POSITION 7,10:? "1. áספחמקáIJáתנפיצזדדקááá"¢335 POSITION 7,12:? "2. áדמקדפáIJáצבפדדמáהחכדá"¢340 POSITION 7,14:? "3. áספחמקáIJáצבפדדמáהחכדá"¢345 POSITION 7,16:? "4. áפדIJגáגנברלדמקIJקחנמáá"¢350 POSITION 7,18:? "5. áערחק¡¡ונקנáגנצáלדמרá"¢355 POSITION 4,21:? "ááΓ∙áסIJרכáהחדכגצáá¬ááטרמדáõ¨Õœáá"¢360 CLOSE #4:OPEN #4,4,0,"K":GET #4,F:F=F-48:IF F<1 OR F>5 THEN 360¢365 CLOSE #4:ON F GOTO 65,95,215,275¢370 DOS ¢